PC Home 109/PC Home 109.iso/data1.cab/Program_Files/be001.dxr/00009_squig8.ls

Text File | 2001-03-02 | 7.1 KB | 199 lines

on squig8
  set direction to random(8)
  startTimer()
  repeat while the timer < 30
    if direction = 1 then
      set nom to the name of member the memberNum of sprite 10
      if (nom = "1nw") or "2nw" or "1e" or "2e" or "1s" or "2s" or "1w" or "2w" or "1ne" or "2ne" or "1se" or "2se" or "1sw" or "2sw" then
        set nom to "1n"
        set the memberNum of sprite 10 to the number of member nom
      end if
      repeat with n = random(10) down to 1
        set the locV of sprite 10 to the locV of sprite 10 - 1
        if nom = "1n" then
          set nom to "2n"
        else
          if nom = "2n" then
            set nom to "1n"
          end if
        end if
        set the memberNum of sprite 10 to the number of member nom
        updateStage()
        if the locV of sprite 10 <= -27 then
          set the locV of sprite 10 to 507
        end if
      end repeat
    end if
    if direction = 3 then
      set nom to the name of member the memberNum of sprite 10
      if (nom = "1nw") or "2nw" or "1n" or "2n" or "1s" or "2s" or "1w" or "2w" or "1ne" or "2ne" or "1se" or "2se" or "1sw" or "2sw" then
        set nom to "1e"
        set the memberNum of sprite 10 to the number of member nom
      end if
      repeat with n = random(10) down to 1
        set the locH of sprite 10 to the locH of sprite 10 + 1
        if nom = "1e" then
          set nom to "2e"
        else
          if nom = "2e" then
            set nom to "1e"
          end if
        end if
        set the memberNum of sprite 10 to the number of member nom
        updateStage()
        if the locH of sprite 10 >= 667 then
          set the locH of sprite 10 to -27
        end if
      end repeat
    end if
    if direction = 5 then
      set nom to the name of member the memberNum of sprite 10
      if (nom = "1nw") or "2nw" or "1n" or "2n" or "1e" or "2e" or "1w" or "2w" or "1ne" or "2ne" or "1se" or "2se" or "1sw" or "2sw" then
        set nom to "1s"
        set the memberNum of sprite 10 to the number of member nom
      end if
      repeat with n = random(10) down to 1
        set the locV of sprite 10 to the locV of sprite 10 + 1
        if nom = "1s" then
          set nom to "2s"
        else
          if nom = "2s" then
            set nom to "1s"
          end if
        end if
        set the memberNum of sprite 10 to the number of member nom
        updateStage()
        if the locV of sprite 10 >= 507 then
          set the locV of sprite 10 to -27
        end if
      end repeat
    end if
    if direction = 7 then
      set nom to the name of member the memberNum of sprite 10
      if (nom = "1nw") or "2nw" or "1n" or "2n" or "1e" or "2e" or "1s" or "2s" or "1ne" or "2ne" or "1se" or "2se" or "1sw" or "2sw" then
        set nom to "1w"
        set the memberNum of sprite 10 to the number of member nom
      end if
      repeat with n = random(10) down to 1
        set the locH of sprite 10 to the locH of sprite 10 - 1
        if nom = "1w" then
          set nom to "2w"
        else
          if nom = "2w" then
            set nom to "1w"
          end if
        end if
        set the memberNum of sprite 10 to the number of member nom
        updateStage()
        if the locH of sprite 10 <= -27 then
          set the locH of sprite 10 to 667
        end if
      end repeat
    end if
    if direction = 2 then
      set nom to the name of member the memberNum of sprite 10
      if (nom = "1nw") or "2nw" or "1n" or "2n" or "1e" or "2e" or "1s" or "2s" or "1w" or "2w" or "1se" or "2se" or "1sw" or "2sw" then
        set nom to "1ne"
        set the memberNum of sprite 10 to the number of member nom
      end if
      repeat with n = random(10) down to 1
        set the locV of sprite 10 to the locV of sprite 10 - 1
        set the locH of sprite 10 to the locH of sprite 10 + 1
        if nom = "1ne" then
          set nom to "2ne"
        else
          if nom = "2ne" then
            set nom to "1ne"
          end if
        end if
        set the memberNum of sprite 10 to the number of member nom
        updateStage()
        if the locH of sprite 10 >= 667 then
          set the locH of sprite 10 to -27
        end if
        if the locV of sprite 10 <= -27 then
          set the locV of sprite 10 to 507
        end if
      end repeat
    end if
    if direction = 4 then
      set nom to the name of member the memberNum of sprite 10
      if (nom = "1nw") or "2nw" or "1n" or "2n" or "1e" or "2e" or "1s" or "2s" or "1w" or "2w" or "1ne" or "2ne" or "1sw" or "2sw" then
        set nom to "1se"
        set the memberNum of sprite 10 to the number of member nom
      end if
      repeat with n = random(10) down to 1
        set the locV of sprite 10 to the locV of sprite 10 + 1
        set the locH of sprite 10 to the locH of sprite 10 + 1
        if nom = "1se" then
          set nom to "2se"
        else
          if nom = "2se" then
            set nom to "1se"
          end if
        end if
        set the memberNum of sprite 10 to the number of member nom
        updateStage()
        if the locH of sprite 10 >= 667 then
          set the locH of sprite 10 to -27
        end if
        if the locV of sprite 10 >= 507 then
          set the locV of sprite 10 to -27
        end if
      end repeat
    end if
    if direction = 6 then
      set nom to the name of member the memberNum of sprite 10
      if (nom = "1nw") or "2nw" or "1n" or "2n" or "1e" or "2e" or "1s" or "2s" or "1w" or "2w" or "1ne" or "2ne" or "1se" or "2se" then
        set nom to "1sw"
        set the memberNum of sprite 10 to the number of member nom
      end if
      repeat with n = random(10) down to 1
        set the locV of sprite 10 to the locV of sprite 10 + 1
        set the locH of sprite 10 to the locH of sprite 10 - 1
        if nom = "1sw" then
          set nom to "2sw"
        else
          if nom = "2sw" then
            set nom to "1sw"
          end if
        end if
        set the memberNum of sprite 10 to the number of member nom
        updateStage()
        if the locH of sprite 10 <= -27 then
          set the locH of sprite 10 to 667
        end if
        if the locV of sprite 10 >= 507 then
          set the locV of sprite 10 to -27
        end if
      end repeat
    end if
    if direction = 8 then
      set nom to the name of member the memberNum of sprite 10
      if (nom = "1sw") or "2sw" or "1n" or "2n" or "1e" or "2e" or "1s" or "2s" or "1w" or "2w" or "1ne" or "2ne" or "1se" or "2se" then
        set nom to "1nw"
        set the memberNum of sprite 10 to the number of member nom
      end if
      repeat with n = random(10) down to 1
        set the locV of sprite 10 to the locV of sprite 10 - 1
        set the locH of sprite 10 to the locH of sprite 10 - 1
        if nom = "1nw" then
          set nom to "2nw"
        else
          if nom = "2nw" then
            set nom to "1nw"
          end if
        end if
        set the memberNum of sprite 10 to the number of member nom
        updateStage()
        if the locH of sprite 10 <= -27 then
          set the locH of sprite 10 to 667
        end if
        if the locV of sprite 10 <= -27 then
          set the locV of sprite 10 to 507
        end if
      end repeat
    end if
  end repeat
end